home *** CD-ROM | disk | FTP | other *** search
/ Network PC / Network PC.iso / amiga utilities / graphics / fractals / amountains / random.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-11-20  |  199 b   |  14 lines
  1. #include <m68881.h>
  2. #include <math.h>
  3.  
  4. double gaussian( void )
  5. {
  6.     double ran;
  7.  
  8.     do {
  9.         ran = drand48();
  10.     } while ( ran == 0.0 );
  11.  
  12.     return sqrt( -2.0 * log( ran ) ) * cos( (2.0 * PI) * drand48() );
  13. }
  14.